-- this class handles the round randomization of the drag and drop game data
-- runtime initialization of the game draggableList:
-- by this point both targetList and draggableList will have been initialized.
-- the draggable list is a list of drag records, initially formatted as follows:
-- spriteNum:[#coverNum:the memberNum of sprite spr, #coverLib: the castLibNum of sprite spr, #loc:(the loc of sprite spr), #identifier:value ("#" & the name of the init frame member at this sprite), #myNum:0, #myLib:answerCast1, #matchSpriteList:0, #showflag:0 ]
-- the initial targetList is as follows:
-- spriteNum:[#loc:(the loc of sprite spr), #identifier:value ("#" & the name of member the memberNum of sprite spr of castLib the castLibNum of sprite spr), #myNum:the memberNum of sprite spr, #myLib:the castLibNum of sprite spr, #showFlag:0]
property ancestor
property randomFlag -- will the sprites be randomized from the pool or left as the sprite layout?
property poolOrderFlag -- set up the order of play to match the draggable pool order.
on new me
-- set up all constants first:
set ancestor = new (script "DraggableListMgmt")
set randomFlag = TRUE
set poolOrderFlag = FALSE
return me
end
on destruct me
if objectP (ancestor) then destruct (ancestor)
set ancestor = 0
end
-- manually turn randomization off.
-- this must be done before initialize round to have any effect.
on randomOff me
set randomFlag = FALSE
end
on setByPoolOrder me
set randomFlag = FALSE
set poolOrderFlag = TRUE
end
-- the deal here is to evenly distribute the draggables into the draggable sprites.
-- each target (target) should contain a roughly even number of matching draggables in the end list, even if there are more
-- draggables than slots for draggables.
on initializeRound me
if randomFlag then initializeRandom (me)
else initializeNonRandom (me)
initHilitePool (me, gettargetSprites (me))
end
on initializeRandom me
-- there is only one list of draggable members at this point
-- in the form: [castLibNum:[#memberName:memberNum, ... ]]
-- get that castNumber for future reference:
set memberList = the memberList of ancestor
set mCastNum = getPropAt (memberList, 1)
-- get the temporary target/member pool:
-- in the form: [targetSprite:[memberList], targetSprite:[memberList], ... ]
set targetMemberLst = setUptargetPool (me)
set targetNames = gettargetSpritePool (me)
set targetList = the targetList of ancestor
set numtargets = count (targetList)
set currtarget = random (numtargets)
set tmpLst = duplicate (the draggableList of ancestor)
set draggableList = [:]
repeat while count (tmpLst)
-- gather draggable sprite information.
-- randomly choose a draggable rec:
set dragSpr = getPropAt (tmpLst, random (count (tmpLst)))
set rec = getAProp (tmpLst, dragSpr)
-- get current target information:
set cSpr = getPropAt (targetList, currtarget)
set cRec = getAProp (targetList, cSpr)
set id = getAProp (cRec, #identifier)
set cPool = getProp (targetMemberLst, id)
if not listP (cPool) then
nothing
else if count (cPool) then -- i.e. there are members left that match the current target.
